home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / EGYPTW.DIR / 01708_Script_Town < prev    next >
Text File  |  1995-09-13  |  4KB  |  135 lines
  1. global gQuest, gBeenClicked
  2.  
  3. on ETownRollovers
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(41) then
  7.       HandCursor
  8.     else
  9.       if rollover(42) then
  10.         HandCursor
  11.       else
  12.         if rollover(12) or rollover(7) then
  13.           repeat while rollover(12) or rollover(7)
  14.             EgyptCursor
  15.             puppetsprite 28, true
  16.             set the locH of sprite 28 to 551
  17.             set the locV of sprite 28 to 196
  18.             updatestage
  19.             if the mousedown then
  20.               set GBeenClicked = 1
  21.             else
  22.               if gBeenClicked = 1 then
  23.                 repeat while gBeenClicked = 1
  24.                   TownAnimate 
  25.                 end repeat
  26.               end if
  27.             end if
  28.           end repeat
  29.           set the locH of sprite 28 to 951
  30.           updatestage
  31.           puppetsprite 28, false
  32.         else
  33.           ArrowCursor
  34.         end if
  35.       end if
  36.     end if
  37.   end if
  38.   RandomQuestion(gQuest)
  39. end
  40.  
  41. on TownAnimate
  42.   ArrowCursor
  43.   set gAnimationcast1 = 508
  44.   set gAnimationcast2 = 521
  45.   set gAnimationcast3 = 511
  46.   set gAnimationcast4 = 514
  47.   set gAnimationcast5 = 517
  48.   set the locH of sprite 28 to 851
  49.   set count = 0
  50.   puppetsound "SE220110.AIF"
  51.   repeat while count < 2 and (the mouseUp)
  52.     set the castnum of sprite 2 = gAnimationcast1 + 1
  53.     set the castnum of sprite 7 = gAnimationcast2 + 1
  54.     updatestage
  55.     wait .3
  56.     if (the mousedown) then 
  57.       exit repeat
  58.     end if
  59.     set the castnum of sprite 2 = gAnimationcast1 + 2
  60.     set the castnum of sprite 7 = gAnimationcast2 + 2
  61.     set the castnum of sprite 8 = gAnimationcast3 + 1
  62.     set the castnum of sprite 9 = gAnimationcast4 + 1
  63.     set the castnum of sprite 10 = gAnimationcast5 + 1
  64.     updatestage
  65.     if (the mousedown) then 
  66.       exit repeat
  67.     end if
  68.     wait .3
  69.     set the castnum of sprite 2 = gAnimationcast1 + 1
  70.     set the castnum of sprite 7 = gAnimationcast2 + 1
  71.     set the castnum of sprite 8 = gAnimationcast3 + 2
  72.     set the castnum of sprite 9 = gAnimationcast4 + 2
  73.     set the castnum of sprite 10 = gAnimationcast5 + 2
  74.     updatestage
  75.     if (the mousedown) then 
  76.       exit repeat
  77.     end if
  78.     wait .3
  79.     set the castnum of sprite 2 = gAnimationcast1
  80.     set the castnum of sprite 7 = gAnimationcast2 
  81.     set the castnum of sprite 9 = gAnimationcast4 + 1
  82.     set the castnum of sprite 10 = gAnimationcast5 + 1
  83.     updatestage
  84.     if (the mousedown) then 
  85.       set animating = 0
  86.       exit repeat
  87.     end if
  88.     wait .3
  89.     set the castnum of sprite 2 = gAnimationcast1 + 1
  90.     set the castnum of sprite 7 = gAnimationcast2 + 1
  91.     set the castnum of sprite 8 = gAnimationcast3 + 1
  92.     set the castnum of sprite 9 = gAnimationcast4
  93.     set the castnum of sprite 10 = gAnimationcast5
  94.     updatestage
  95.     if (the mousedown) then 
  96.       exit repeat
  97.     end if
  98.     wait .3
  99.     set the castnum of sprite 2 = gAnimationcast1 + 2
  100.     set the castnum of sprite 7 = gAnimationcast2 + 2
  101.     updatestage
  102.     if (the mousedown) then 
  103.       exit repeat
  104.     end if
  105.     wait .3
  106.     set the castnum of sprite 2 = gAnimationcast1 + 1
  107.     set the castnum of sprite 7 = gAnimationcast2 + 1
  108.     updatestage
  109.     if (the mousedown) then 
  110.       exit repeat
  111.     end if
  112.     wait .3
  113.     set the castnum of sprite 2 = gAnimationcast1 
  114.     set the castnum of sprite 7 = gAnimationcast2
  115.     set the castnum of sprite 8 = gAnimationcast3
  116.     updatestage
  117.     if (the mousedown) then 
  118.       exit repeat
  119.     end if
  120.     wait .3
  121.     set count = count + 1
  122.   end repeat
  123.   set the castnum of sprite 2 = gAnimationcast1
  124.   set the castnum of sprite 8 = gAnimationcast3
  125.   set the castnum of sprite 9 = gAnimationcast4
  126.   set the castnum of sprite 10 = gAnimationcast5
  127.   set the castnum of sprite 7 = gAnimationcast2
  128.   updatestage
  129.   sound fadeout 1, 2*60
  130.   set gBeenClicked = 0
  131. end
  132.  
  133.  
  134.  
  135.